home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / amac44b.zip / QLST@F3.QM < prev    next >
Text File  |  1992-05-27  |  3KB  |  62 lines
  1. *                               qlst@f3.qm
  2. *               Macro To Load a File List of Files In Ring
  3. *                                 5/18/92
  4.  
  5. * 
  6. * ----------------------------------------------------------------------
  7. * @(f3) Load File List In Ring,
  8. *       User Selects File To Load Emulating PC Magazine Filectrl.com,
  9. *       Makes Paragraph of File List For Faster Loading,
  10.  
  11.  
  12.  
  13.  
  14. @f3     macrobegin
  15.         setscreenoff                * Turn screen off for less flicker
  16.         endfile markline begfile        * Mark file list
  17. * ---------------------- Copy File List To Nul ----------------------*
  18.         editfile "Nul" return       * Load Nul for faster loading
  19.         copyblock unmarkblock       * Copy file list to Nul
  20. * ------------ Makes File List Paragraph For Fast Loading ------------*
  21.     LOOP:
  22.         endline begline             * Test if empty line
  23.     jtrue NOEMPTY
  24.         delline jtrue LOOP          * Delete all empty line 'til no more
  25.     NOEMPTY:
  26.         endpara                     * Move end of para
  27.         cursordown jtrue LOOP       * Loop 'til no more empty lines
  28.         begfile                     * Pos to format
  29.         setrmargin "60" return      * Set margin for fast load
  30.         wrappara                    * Format file list as para
  31.         setrmargin "80" return      * Reset right margin to "80"
  32. * ---------------------- Load File List In Ring ----------------------*
  33.     LOAD:
  34.         setscreenon setscreenoff    * Turn screen on/off to see loading
  35.         markline                    * Mark file name at cursor
  36.         copy                        * Copy file name to scrap
  37.         editfile currentfilename " " * Load current file plus
  38.         paste return                 * last marked on list into ring
  39.         cursorup                    * Move up to next file in list
  40.     jtrue LOAD                      * Continue loading until top of list
  41. * --------------- Quit Nul, Return To Top of File List ---------------*
  42.         quit                        * Quit formatted Nul file list
  43. * ------------------- Load First File in Window 2 -------------------*
  44.         horizontalwindow            * Open 2 windows
  45.         editfile paste return       * Load first file in list in window 2
  46.         prevwindow                  * Move to window 1
  47. * ------------------- Select Another File To Load -------------------*
  48.     SELECT:
  49.         setscreenon                 * Turn on for pause
  50.         pause                       * Pause to select file to load
  51.         markline copy               * Copy selected file name to scrap
  52.         nextwindow                  * Move to window 2
  53.         editfile paste return       * Load selected file
  54.         zoomwindow                  * Zoom to edit in full window
  55.         pause                       * Press <enter> to Select another file
  56.         prevwindow                  * Return to list to select another file
  57.         makectrofscreen             * To view files above and below cursor
  58.     jump SELECT                     * Loop again to select another file
  59. *
  60. * 81 bytes Thu  05-07-1992  10:10:11 (TH @f3)
  61.  
  62.